﻿Namespace Widgets


    Friend Class XboxInfoRetrevalEventArgs
        Inherits EventArgs

        Private m_LastUpdate As DMXIProxy.XboxInfo
        Private m_LatestValue As DMXIProxy.XboxInfo
        Private m_LastCheck As DateTime
        Private m_LastTick As DateTime
        Private m_TimeBetweenChecks As TimeSpan
        Private m_TimeSinceLastCheck As TimeSpan
        Private m_TimeSinceLastUpdate As TimeSpan

        Public Sub New(ByVal LastValue As DMXIProxy.XboxInfo, ByVal LatestValue As DMXIProxy.XboxInfo, ByVal LastCheck As DateTime, ByVal LastTick As DateTime, ByVal TimeBetweenChecks As TimeSpan, ByVal TimeSinceLastCheck As TimeSpan, ByVal TimeSinceLastUpdate As TimeSpan)
            m_LastUpdate = LastValue
            m_LatestValue = LatestValue
            m_LastCheck = LastCheck
            m_LastTick = LastTick
            m_TimeBetweenChecks = TimeBetweenChecks
            m_TimeSinceLastCheck = TimeSinceLastCheck
            m_TimeSinceLastUpdate = TimeSinceLastUpdate
        End Sub

        Public ReadOnly Property LastUpdate() As DMXIProxy.XboxInfo
            Get
                Return m_LastUpdate
            End Get
        End Property

        Public ReadOnly Property LatestValue() As DMXIProxy.XboxInfo
            Get
                Return m_LatestValue
            End Get
        End Property

        Public ReadOnly Property LastCheck() As DateTime
            Get
                Return m_LastCheck
            End Get
        End Property

        Public ReadOnly Property LastTick() As DateTime
            Get
                Return m_LastTick
            End Get
        End Property

        Public ReadOnly Property TimeBetweenChecks() As TimeSpan
            Get
                Return m_TimeBetweenChecks
            End Get
        End Property

        Public ReadOnly Property TimeSinceLastCheck() As TimeSpan
            Get
                Return m_TimeSinceLastCheck
            End Get
        End Property

        Public ReadOnly Property TimeSinceLastUpdate() As TimeSpan
            Get
                Return m_TimeSinceLastUpdate
            End Get
        End Property


    End Class



End Namespace